From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 2004 00:17:18 +0000 (+0000)
Subject: (ccl-encode-windows-1251-font): Rearrange
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24404
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5c1de75f02582454be0cd0ea4c67221a7364ee77;p=emacs.git

(ccl-encode-windows-1251-font): Rearrange
code point (register r0) only for charset mule-unicode-0100-24ff.
---

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 60ebf52fe35..dc05f24698a 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -476,11 +476,11 @@ Support for Russian using koi8-r and the russian-computer input method.")
     (push elt ctext-non-standard-encodings-alist)))
 
 (define-ccl-program ccl-encode-windows-1251-font
-  '(0
-    ((r1 <<= 7)
-     (r1 += r2)
-     (translate-character encode-windows-1251 r0 r1)
-     )))
+  `(0
+    ((if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
+	 ((r1 <<= 7)
+	  (r1 += r2)))
+     (translate-character encode-windows-1251 r0 r1))))
 
 (add-to-list 'font-ccl-encoder-alist
 	     '("microsoft-cp1251" . ccl-encode-windows-1251-font))